5 PRINT"[147]";CHR$(14)
10 OPEN2,8,2,"CONTROL-Q.MSG":FORX=0TO1:GET#2,A$:PRINTA$;:X=ST:NEXTX:CLOSE2
20 GETA$:IFA$=""THEN20
30 PRINTCHR$(142):LOAD"HELLO CONNECT",8
100 PRINT CHR$(147):PRINTTAB(17)"CTRL-Q"
110 PRINT TAB(11)"QUOTE MODE CONTROL"
120 PRINT TAB(9)"BY BENNETT COOKSON JR."
130 PRINT:PRINT"  CTRL-Q TO TURN QUOTE MODE ON AND OFF"
200 SA=679
300 DEF FNH(D)=INT(D/256)
305 DEF FNL(L)=L-FNH(L)*256
500 I=SA
510 READ A:IF A=256 THEN 700
520 POKE I,A:I=I+1:GOTO 510
530 DATA 165,212,240,4,169,0,208,7
540 DATA 133,212,133,216,141,172,2,165
550 DATA 145,201,187,208,21,166,203,228
560 DATA 197,240,12,173,172,2,73,255
570 DATA 141,172,2,133,212,134,197,76
580 DATA 66,235,76,72,235,120,169,167
590 DATA 141,143,2,169,2,141,144,2
600 DATA 88,96,32,212,2,76,131,164,256
700 POKE SA+47,FNL(SA)
710 POKE SA+52,FNH(SA)
750 PRINT:PRINT"LOCK? (STOP/RESTORE WON'T DISTROY IT)"
755 PRINT" Y OR N"
760 GET K$:IF K$<>"Y" AND K$<>"N" THEN 760
770 IF K$="N"THEN 850
800 POKE 770,FNL(SA+58):REM LOCK
810 POKE 771,FNH(SA+58)
850 SYS(SA+45)
860 PRINT:PRINT"SYS";SA+45;"TO RESTART"
890 END
900 POKE 770,131:REM REMOVE LOCK
910 POKE 771,164